void skill_adjust(object ob)
{
        mapping skl;
        string *sname;
        int i, lmt;

        skl = ob->query_skills();
        if (!sizeof(skl))
                return;
        sname = keys(skl);

        lmt = (int)query("combat_exp", ob);
        lmt = lmt * lmt * lmt / 10;
        for (i = 0; i < sizeof(skl); i++)
                if (SKILL_D(sname[i])->type() == "martial" && skl[sname[i]] > lmt)
                        ob->set_skill(sname[i], lmt);
}


